home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / rushdemo2 / rexx / tolower.rush < prev   
Text File  |  1995-03-09  |  782b  |  44 lines
  1. /*
  2. ** $VER: tolower.rush 37.1 (2.12.93)
  3. **
  4. ** Rename selected file to lowercase.
  5. **
  6. ** Written by Douglas Keller
  7. */
  8.  
  9. if( address() == "REXX" ) then address "RUSH.1"
  10.  
  11. options results
  12.  
  13. /*
  14. ** Get directory name on active side, RC = 1 for device list
  15. */
  16. 'getdirectory'
  17. dir = result
  18. if( RC == 0 ) then do
  19.  
  20.     if( right(dir, 1) ~= ":" ) then dir = dir || "/"
  21.  
  22.     'getselected'
  23.     file = result
  24.     do while ( file ~= "" )
  25.  
  26.         lower = translate(file, "abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  27.  
  28.         if( file ~= lower ) then do
  29.  
  30.             'statusmsg "Renaming ' || file || ' to ' || lower '"'
  31.  
  32.             address command 'rename quiet from ' || dir || file || ' to ' || dir || lower
  33.  
  34.             end
  35.  
  36.         'getselected'
  37.         file = result
  38.     end
  39.  
  40.     /* re-read dir beause names have changed */
  41.     'setdirectory' dir
  42.  
  43. end
  44.